BEGIN "VAR2P"
REQUIRE "PIXHDR.SAI[VIS,HPM]" SOURCE_FILE;
DEFINE NF=2;
INTEGER MAXL,OCH,I,T;
STRING ARRAY SF[1:NF];   INTEGER ARRAY PIC[1:NF,0:10],PCH[1:NF],OPC[0:10];

FOR I←1 STEP 1 UNTIL NF DO
   BEGIN  DO PRINT("BIT FILE ",I,":") UNTIL PFLDIM(SF[I]←INCHWL)>0;
	  PCH[I]←OPNPFL(SF[I],PIC[I,0]);  END;

MAXL←PIC[1,PCLN];  FOR I←1 STEP 1 UNTIL NF DO MAXL←MAXL MAX PIC[I,PCLN];

MAKDIM(MAXL,PIC[1,LNWD]*36+2*36+PIC[2,LNBY],1,OPC[0]);
PRINT("OUTPUT FILE:");  OCH←CREPFL(OPC[0],INCHWL);

FOR I←0 STEP 1 UNTIL MAXL-1 DO
    BEGIN
    INTEGER PT,RH,MI,MIP,LO,HI;  INTEGER ARRAY SCNLIN[0:200];

    PFLIN(PCH[1],SCNLIN[0],PIC[1,LNWD]);
    PFLIN(PCH[2],SCNLIN[PIC[1,LNWD]+2],PIC[2,LNWD]);

    SCNLIN[1]←SCNLIN[1] LOR '400000000000;
    SCNLIN[PIC[1,LNWD]-1]←
       SCNLIN[PIC[1,LNWD]-1] LOR ('400000000000 LSH -((PIC[1,LNBY]-1) MOD 36));
    SCNLIN[PIC[1,LNWD]+3]←SCNLIN[PIC[1,LNWD]+3] LOR '400000000000;
    SCNLIN[PIC[1,LNWD]+2+PIC[2,LNWD]-1]←
    SCNLIN[PIC[1,LNWD]+2+PIC[2,LNWD]-1]
       LOR ('400000000000 LSH -((PIC[2,LNBY]-1) MOD 36));
    PFLOUT(OCH,SCNLIN[0],OPC[LNWD]);
    END;
PFLCLS(OCH);

END "VAR2P";